home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSAM.EXE / BDCOK.PRG < prev    next >
Text File  |  1993-03-18  |  913b  |  35 lines
  1. FUNCTION BDCOk
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   BDCOk() - 
  5. *
  6. *----------------------------------------------------------------------------
  7.   PRIVATE lOk
  8.   lOk = .T.
  9.   IF TYPE( "aClkObj[1,1]" ) = "N"
  10.     IF ISBLANK( CD_LIST_1 ) .OR. "*" $ CD_LIST_1 .OR. "?" $ CD_LIST_1
  11.       DO _Err_Box WITH [You must specify a valid file!]
  12.       lOk = .F.
  13.     ELSE
  14.       IF LEFT( CD_LIST_1, 1 ) = "@"
  15.         IF .NOT. FILE( TRIM( SUBSTR( CD_LIST_1, 2 ) ) )
  16.           DO _Err_Box WITH [Cannot find file: ] + TRIM( SUBSTR( CD_LIST_1, 2 ) )
  17.           lOk = .F.
  18.         ENDIF
  19.       ELSE
  20.         IF .NOT. FILE( TRIM( CD_LIST_1 ) )
  21.           DO _Err_Box WITH [Cannot find file: ] + TRIM( CD_LIST_1 )
  22.           lOk = .F.
  23.         ENDIF
  24.       ENDIF
  25.     ENDIF
  26.     IF .NOT. lOk
  27.       nCurrent = 37
  28.     ENDIF
  29.   ENDIF
  30. RETURN lOk
  31. *-- EOF: BDCOk(  )
  32.  
  33.  
  34.  
  35.